600
How can include the values in the inner cells in the drop down filter window

with AxGantt1 do
begin
	DrawGridLines := EXGANTTLib.GridLinesEnum.exRowLines;
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarBlanks,'');
	set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarNonBlanks,'');
	with (Columns.Add('Single Column') as EXGANTTLib.Column) do
	begin
		HTMLCaption := 'Single column with <b>inner cells</b>';
		ToolTip := 'Click the drop down filter button, and the filter list includes the inner cells values too.';
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXGANTTLib.FilterListEnum.exIncludeInnerCells;
	end;
	ShowFocusRect := False;
	with Items do
	begin
		s := SplitCell[TObject(AddItem('S 1.1')),TObject(0)];
		CellCaption[Nil,TObject(s)] := 'S 1.2';
		CellHAlignment[Nil,TObject(s)] := EXGANTTLib.AlignmentEnum.CenterAlignment;
		CellBackColor[Nil,TObject(s)] := $1000000;
		CellWidth[Nil,TObject(s)] := 84;
		s := SplitCell[TObject(AddItem('S 2.1')),TObject(0)];
		CellCaption[Nil,TObject(s)] := 'S 2.2';
		CellHAlignment[Nil,TObject(s)] := EXGANTTLib.AlignmentEnum.CenterAlignment;
		CellWidth[Nil,TObject(s)] := 84;
		s := SplitCell[TObject(AddItem('S 3.1')),TObject(0)];
		CellCaption[Nil,TObject(s)] := 'S 3.2';
		CellHAlignment[Nil,TObject(s)] := EXGANTTLib.AlignmentEnum.CenterAlignment;
		CellBackColor[Nil,TObject(s)] := $1000000;
		CellWidth[Nil,TObject(s)] := 84;
	end;
end
599
How can I sort the value gets listed in the drop down filter window

with AxGantt1 do
begin
	LinesAtRoot := EXGANTTLib.LinesAtRootEnum.exLinesAtRoot;
	MarkSearchColumn := False;
	set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAll,'');
	set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarBlanks,'');
	set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarNonBlanks,'');
	with (Columns.Add('P1') as EXGANTTLib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXGANTTLib.FilterListEnum.exSortItemsDesc;
	end;
	with (Columns.Add('P2') as EXGANTTLib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXGANTTLib.FilterListEnum.exSortItemsAsc;
	end;
	with Items do
	begin
		h := AddItem('Z3');
		CellCaption[TObject(h),TObject(1)] := 'C';
		CellCaption[TObject(InsertItem(h,Nil,'Z1')),TObject(1)] := 'B';
		CellCaption[TObject(InsertItem(h,Nil,'Z2')),TObject(1)] := 'A';
		ExpandItem[h] := True;
	end;
end
598
Is there a way to break the hours into 15 minute increments just showing lines instead of the minute numbers

with AxGantt1 do
begin
	BeginUpdate();
	Chart.FirstVisibleDate := '2/5/2008';
	Chart.LevelCount := 3;
	Chart.Level[0].Label := '<b><%mmm%> <%dd%></b> <%yyyy%> ';
	with Chart.Level[1] do
	begin
		Label := '<%hh%>';
		Alignment := EXGANTTLib.AlignmentEnum.CenterAlignment;
	end;
	with Chart.Level[2] do
	begin
		Label := '';
		Unit := EXGANTTLib.UnitEnum.exMinute;
		Count := 15;
	end;
	Chart.UnitWidth := 6;
	EndUpdate();
end
597
How can I change the visual appearance of the milestone bar using EBN

with AxGantt1 do
begin
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiF4aRTHUKAAKQahLEaSZLhEZRQiqA4sS5FQBSBDQFwSByEY6mSaYJA' + 
	'WK4tCyNM7SfQAbxnAgYaLAAYRUjuHZOTZAc4UfAdFL/K4AKrfeZIeAiCRQGiYZyHKaRShjDwXKLIIjbJhkNoJChCNQgBScPgxCx8JypaCaar2fjQM6zWAMdb2Cz7PjDH' + 
	'7wPA1WYJRaDYjhcB4LheAqGXBWUYLYb8XS3EKJYhiWA4HjqFjGJpcEzPbRiNx3H6SABlLLaLo7JpGO52FrTHZjXyzLqBVpoOyEbrmcozYzjN41RpWETfQYDcwteqcLpr' + 
	'hGVZrm6dp8j4bAnDQP5Uh+OpcH6R4Lg2YJvEIeg6kWEoJB2ZZyG6GoLCSXxtG+IZ1GmfhJjcawNFWfB/h+V5pnUc5VhWeZ4BMX4jlySwtiAJodlEYRaBYFgHHgIA2gGE' + 
	'xkFUdxFl6A5hgUbgXgcVRzFiXA3CICARAEgI');
		Add(2,'CP:1 -6 0 5 0');
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		with Bars.Add('MilestoneEBN') do
		begin
			Color := $2000000;
			Height := 14;
		end;
	end;
	Columns.Add('Tasks');
	with Items do
	begin
		AddBar(AddItem('Milestone'),'Milestone','1/2/2001','1/2/2001 12:00:01 AM',Nil,Nil);
		AddBar(AddItem('Milestone EBN '),'MilestoneEBN','1/2/2001','1/2/2001 12:00:01 AM',Nil,Nil);
	end;
end
596
How can I change the visual appearance of the summary bar using EBN

with AxGantt1 do
begin
	VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAEGg4BGICg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGDAADEMgyAJCIxjPIgZBoGqPBpASQJUhkMocR7HMygBI' + 
	'kSRNA8kMwxdQEaw9ECRIDpGaYWTFDhsABTVQRLL0Tw9ISERqoSSaGgkCYaA7CNJ0PBNJSjJ6LJZGURbKqyCQ1DBbUB3BaUaQ9JaKa7pKa7cpWKIqSxEMrxcLFcT5DSbY' + 
	'DxGjLEhmPZBVZQNBxtJbFQHWJCNgzVAdOAAfzQM70GpMQoWJYeVpEObSBD1dABTCBczADYoex7ID+aJuGiYVZdWxJOjfbhkTTIJAaCawABrWxR8iHN5paTnUpzDjwbg0' + 
	'kqRRyr+XwjA8Go/HSBp6g6KJTFcGpWmYdg8H6dJTH0EZelueBfBuLwyBMd50nIfR+kmXB4BECQUAaEYMHQHRHCGFRYI2ZAwEIExghQZA2EIQoGGoEhOgGBBYlAeYYHMW' + 
	'JcDcGx4HYHoHmICIFjeBohkaDAAC2DAjBYJIIiKSI2CSC5hjQJBsCOCwYiIKoGmKWJkn6DANkiWgzCwYwolAcQkksWJaCuDohlicg2hDQR+EELBInKcJohMJBomILoGm' + 
	'ISQuESFBOgkOQDg+SoTEyfoXCUSImDyGZhjkaI1hcJgTnoXgACYCYKG2GQkEkVJchKIoZDIbIciYKY+HEP4mlmThSg+aBIlKBYUCUKgGHyG4jEkPoKiAKI6D6EokGkSg' + 
	'yECF5jEKVJZD+aYqHKG4nGoCh+iKJ4qEqBokh+KYag6JoqmqKo2iWJpqgKRJHDiT5qk6NYtCsapmjiLprHqdo6i8awan6QovCwOp6kSLQsBsHpGjKbBbBaMYhm0CgalI' + 
	'LBtBsUpTiGUIUAQgIA==');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		with Bars.Copy('Task','Summary') do
		begin
			Color := $1000000;
			Height := 16;
		end;
	end;
	Columns.Add('Tasks');
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Task 2'),'Summary','1/5/2001','1/7/2001',Nil,Nil);
	end;
end
595
How can I change the visual appearance of the task bar using EBN

with AxGantt1 do
begin
	VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSBEgSXDIZQ5D6OZYACDJQACJYJTbAYzyPJ' + 
	'kPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpEWwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47X' + 
	'jMWBwGA0EzeAAGaxoShqdoiFaGU7UOJVJBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHRm' + 
	'i8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyAQNwNAMPJOgIYI4CoDIBmAeAKBIUpQDUK' + 
	'JYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4DniTA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4Ki' + 
	'KSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+GIlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJg' + 
	'Fh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cwsjaMBLGqDoAhGIpoEYWYEmAIxUkQLZmgi' + 
	'Yg2g2I4JiCQwuAqWIOIkEAQICA==');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		with Bars.Item['Task'] do
		begin
			Color := $1000000;
			Height := 16;
		end;
	end;
	Columns.Add('Tasks');
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Task 2'),'Task','1/5/2001','1/7/2001',Nil,Nil);
	end;
end
594
How can I change the visual appearance of the task bar using EBN

with AxGantt1 do
begin
	VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAEGg4BZsIQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiGoZATCMbDBIcSwSGgCJCjeS4ZDKHIXSxFUKTBAcSQTGyBRokaYZRi' + 
	'6A4+TRPETTWAEcABHSbQCoKTKAoCHpLQLMYxDKItJSpGYaRgqWCaZpuUIaUzKVbxbK9CSMGiQbIsOJrBqqQozWZHVITLR9VgBNqga7uGR5DoqdovU5dVTVda9Ly5LSsM' + 
	'QvfALCqOe45URdNp3RiVBYfI6+cZvfJLWh4NqeAbCMC1UJoYhlUKCBg0TRoVo9AIDX5QWaYXC0AkBA==');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		with Bars.Item['Task'] do
		begin
			Color := $1000000;
			Height := 16;
		end;
	end;
	Columns.Add('Tasks');
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Task 2'),'Task','1/5/2001','1/7/2001',Nil,Nil);
	end;
end
593
How can I clip the HTML text or caption inside the bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Chart.Bars.Item['Task'] do
	begin
		Pattern := EXGANTTLib.PatternEnum.exPatternBox;
		Height := 13;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1','This is a bit of text that get''s clipped');
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarHAlignCaption] := TObject(3);
	end;
end
592
How can I align the text/caption on the scroll bar

with AxGantt1 do
begin
	set_ScrollPartCaption(EXGANTTLib.ScrollBarEnum.exHScroll,EXGANTTLib.ScrollPartEnum.exLowerBackPart,'left');
	set_ScrollPartCaptionAlignment(EXGANTTLib.ScrollBarEnum.exHScroll,EXGANTTLib.ScrollPartEnum.exLowerBackPart,EXGANTTLib.AlignmentEnum.LeftAlignment);
	set_ScrollPartCaption(EXGANTTLib.ScrollBarEnum.exHScroll,EXGANTTLib.ScrollPartEnum.exUpperBackPart,'right');
	set_ScrollPartCaptionAlignment(EXGANTTLib.ScrollBarEnum.exHScroll,EXGANTTLib.ScrollPartEnum.exUpperBackPart,EXGANTTLib.AlignmentEnum.RightAlignment);
	ColumnAutoResize := False;
	Columns.Add(1);
	Columns.Add(2);
	Columns.Add(3);
	Columns.Add(4);
end
591
How do I programmatically control the position of the horizontal scroll bar in the chart area, so I can specify a range of dates to scorll within

with AxGantt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		LevelCount := 2;
		PaneWidth[False] := 56;
		ScrollRange[EXGANTTLib.ScrollRangeEnum.exStartDate] := '1/1/2001';
		ScrollRange[EXGANTTLib.ScrollRangeEnum.exEndDate] := '1/31/2001';
		FirstVisibleDate := '1/12/2001';
	end;
	set_ScrollPartCaption(EXGANTTLib.ScrollBarEnum.exHChartScroll,EXGANTTLib.ScrollPartEnum.exLowerBackPart,Chart.ScrollRange[EXGANTTLib.ScrollRangeEnum.exStartDate]);
	set_ScrollPartCaptionAlignment(EXGANTTLib.ScrollBarEnum.exHChartScroll,EXGANTTLib.ScrollPartEnum.exLowerBackPart,EXGANTTLib.AlignmentEnum.LeftAlignment);
	set_ScrollPartCaption(EXGANTTLib.ScrollBarEnum.exHChartScroll,EXGANTTLib.ScrollPartEnum.exUpperBackPart,Chart.ScrollRange[EXGANTTLib.ScrollRangeEnum.exEndDate]);
	set_ScrollPartCaptionAlignment(EXGANTTLib.ScrollBarEnum.exHChartScroll,EXGANTTLib.ScrollPartEnum.exUpperBackPart,EXGANTTLib.AlignmentEnum.RightAlignment);
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/15/2001','1/18/2001','K1',Nil);
		h := AddItem('Task 1');
		AddBar(h,'Task','1/5/2001','1/11/2001','K1',Nil);
	end;
	EndUpdate();
end
590
How can I programmatically control the position of the "splitter" between the item list on the left side and the gantt chart on the right

with AxGantt1 do
begin
	Chart.PaneWidth[True] := 196;
end
589
How can I add a milestone bar and some text in the chart area

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Milestone','1/2/2001','1/2/2001',Nil,'<a1>text</a> outside');
		ItemBar[h,Nil,EXGANTTLib.ItemBarPropertyEnum.exBarHAlignCaption] := TObject(18);
	end;
end
588
How can I display or align the bar's caption or text outside of the bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	DefaultItemHeight := 32;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/3/2001','1/5/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarCaption] := '<b>to do</b>';
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarHAlignCaption] := TObject(18);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarVAlignCaption] := TObject(16);
	end;
end
587
How can I display or align the bar's caption or text outside of the bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/4/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarCaption] := 'to do';
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarHAlignCaption] := TObject(16);
	end;
end
586
How can I display or align the bar's caption or text outside of the bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarCaption] := 'to do ';
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarHAlignCaption] := TObject(18);
	end;
end
585
Is there any option to count the non-working days
with AxGantt1 do
begin
	BeginUpdate();
	Chart.FirstVisibleDate := '1/1/2002';
	Columns.Add('Task');
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2002','1/4/2002','A',Nil);
		var_ItemBar := ItemBar[h,'A',EXGANTTLib.ItemBarPropertyEnum.exBarNonWorkingCount];
	end;
	EndUpdate();
end
584
Is there any option to count or to specify the working days
with AxGantt1 do
begin
	BeginUpdate();
	Chart.FirstVisibleDate := '1/1/2002';
	Columns.Add('Task');
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2002','1/4/2002','A',Nil);
		var_ItemBar := ItemBar[h,'A',EXGANTTLib.ItemBarPropertyEnum.exBarWorkingCount];
	end;
	EndUpdate();
end
583
How do I select the next row/item

with AxGantt1 do
begin
	Columns.Add('Column');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
		SelectItem[NextVisibleItem[FocusItem]] := True;
	end;
end
582
How do I define the visual appearance of the bar by using your EBN/skin files

with AxGantt1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Chart.Bars.Copy('Task','EBN').Color := $1000000;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'EBN','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
581
Is it possible to have an "empty box" pattern for the bars

with AxGantt1 do
begin
	Chart.Bars.Copy('Task','Box').Pattern := EXGANTTLib.PatternEnum.exPatternBox;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Box','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
580
How do I enable resizing ( changing the height ) the items at runtime

with AxGantt1 do
begin
	ItemsAllowSizing := EXGANTTLib.ItemsAllowSizingEnum.exResizeItem;
	DrawGridLines := EXGANTTLib.GridLinesEnum.exHLines;
	ScrollBySingleLine := True;
	Columns.Add('Column');
	Items.AddItem('Item 1');
	with Items do
	begin
		ItemHeight[AddItem('Item 2')] := 48;
	end;
	Items.AddItem('Item 3');
end
579
How do I enable resizing all the items at runtime

with AxGantt1 do
begin
	ItemsAllowSizing := EXGANTTLib.ItemsAllowSizingEnum.exResizeAllItems;
	DrawGridLines := EXGANTTLib.GridLinesEnum.exHLines;
	Columns.Add('Column');
	Items.AddItem('Item 1');
	with Items do
	begin
		ItemHeight[AddItem('Item 2')] := 48;
	end;
	Items.AddItem('Item 3');
end
578
I'm trying to use the percentage display in my gantt's bars. Unfortunately, I don't see any percentage on the gantt chart

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Chart.Bars.Copy('Task','BarName') do
	begin
		Color := $ff;
		Pattern := EXGANTTLib.PatternEnum.exPatternBDiagonal;
	end;
	Chart.Bars.Add('BarName%Progress').Shortcut := 'Percent';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.4);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
	end;
end
577
How I can show Months in Time Unit panel into Roman numerals

with AxGantt1 do
begin
	Chart.LevelCount := 2;
	Chart.Level[0].Label := TObject(0);
	with Chart.Level[1] do
	begin
		Label := '<%mr%>';
		Unit := EXGANTTLib.UnitEnum.exMonth;
	end;
end
576
Can I show a bar with a different vertical position

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Opaque');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		h := AddItem('Transparent and Opaque');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarOffset] := '-3';
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarTransparent] := TObject(80);
		AddBar(h,'Task','1/3/2001','1/7/2001','K2',Nil);
	end;
end
575
How can I show transparent and opaque bars in the same chart

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Opaque');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		h := AddItem('Transparent and Opaque');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarOffset] := '-3';
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarTransparent] := TObject(80);
		AddBar(h,'Task','1/3/2001','1/7/2001','K2',Nil);
	end;
end
574
How can I draw bars using transparent colors

with AxGantt1 do
begin
	Chart.ShowTransparentBars := 60;
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Copy('Task','TaskR').Color := $ff;
	Chart.PaneWidth[False] := 48;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Item 1');
		AddBar(h,'Task','1/2/2001','1/5/2001','A',Nil);
		AddBar(h,'TaskR','1/4/2001','1/7/2001','B',Nil);
	end;
end
573
Can I change the Task bar so it display a Progress or a Percent bar, but it is splitted when the task intersect a non working area

with AxGantt1 do
begin
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		Bars.Add('Task%Progress:Split').Shortcut := 'Task';
	end;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Item 1');
		AddBar(h,'Task','1/2/2001','1/16/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.15);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
	end;
end
572
Can I change the Task bar so it display a Progress or a Percent bar

with AxGantt1 do
begin
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		Bars.Add('Task%Progress').Shortcut := 'Task';
	end;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Item 1');
		AddBar(h,'Task','1/2/2001','1/5/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.15);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
	end;
end
571
How can I remove the filter

with AxGantt1 do
begin
	with (Columns.Add('Column') as EXGANTTLib.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXGANTTLib.FilterTypeEnum.exBlanks;
	end;
	ApplyFilter();
	ClearFilter();
end
570
I use the ShowEmptyBars property, but I display seconds from 15 to 15, and the bars are not shown correctly. What can I do

with AxGantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '1/1/2002';
		LevelCount := 2;
		Level[0].Label := TObject(1048576);
		with Level[1] do
		begin
			Label := '<%ss%>';
			Count := 15;
		end;
		ShowEmptyBars := 15;
		ShowEmptyBarsUnit := EXGANTTLib.UnitEnum.exSecond;
		PaneWidth[False] := 48;
	end;
	Columns.Add('Task');
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/1/2002 12:00:15 AM','1/1/2002 12:00:15 AM','A',Nil);
		AddBar(h,'Task','1/1/2002 12:01:15 AM','1/1/2002 12:01:30 AM','B',Nil);
		AddLink('AB',h,'A',h,'B');
	end;
	EndUpdate();
end
569
I need the bar works like in the MS Project, where task from 1/1/2001 to 1/1/2001 must display 1 day

with AxGantt1 do
begin
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.ShowEmptyBars := 1;
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/1/2001','1/1/2001',Nil,Nil);
	end;
end
568
I have a bar that has the start and end date identical. Nothing is displayed. What can I do

with AxGantt1 do
begin
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.ShowEmptyBars := 1;
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/2/2001',Nil,Nil);
	end;
end
567
How can I display seconds and bars for 15 to 15

with AxGantt1 do
begin
	BeginUpdate();
	Chart.FirstVisibleDate := '1/1/2002 00:00';
	Chart.LevelCount := 2;
	Chart.Level[0].Label := TObject(1048576);
	with Chart.Level[1] do
	begin
		Label := '<%ss%>';
		Count := 15;
	end;
	Chart.PaneWidth[False] := 48;
	Chart.Bars.Copy('Task','Task2').Color := $ff;
	Columns.Add('Task');
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/1/2002 00:00:15','1/1/2002 00:00:45','A',Nil);
		AddBar(h,'Task2','1/1/2002 00:01:15','1/1/2002 00:01:45','B',Nil);
		AddLink('AB',h,'A',h,'B');
	end;
	EndUpdate();
end
566
How can I copy a predefined bar

with AxGantt1 do
begin
	Chart.Bars.Copy('Task','T2').Color := $ff;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
565
How can I define my own custom bar, using my icons or pictures

with AxGantt1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Chart.Bars do
	begin
		AddShapeCorner(TObject(12345),TObject(1));
		AddShapeCorner(TObject(22345),TObject(2));
		with Add('T2') do
		begin
			StartShape := EXGANTTLib.ShapeCornerEnum($5740 Or Integer(EXGANTTLib.ShapeCornerEnum.exShapeIconCircleUp1));
			EndShape := EXGANTTLib.ShapeCornerEnum($3020 Or Integer(EXGANTTLib.ShapeCornerEnum.exShapeIconVBar) Or Integer(EXGANTTLib.ShapeCornerEnum.exShapeIconRight));
			EndColor := $ff;
			Pattern := EXGANTTLib.PatternEnum.exPatternDot;
			Color := $ff00ff;
			Shape := EXGANTTLib.ShapeBarEnum.exShapeThinCenter;
		end;
	end;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
564
How can I access a predefined bar

with AxGantt1 do
begin
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
	Chart.Bars.Item['Task'].Color := $ff;
end
563
How can I access a predefined bar

with AxGantt1 do
begin
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
	Chart.Bars.Item['Task'].Color := $ff;
end
562
How can I remove all predefined bars
with AxGantt1 do
begin
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
561
How can I remove a predefined bar
with AxGantt1 do
begin
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
560
How do I get the number of predefined bars
with AxGantt1 do
begin
	Columns.Add(AxGantt1.Chart.Bars.Count);
end
559
How can I change the height of the task bar

with AxGantt1 do
begin
	with Chart.Bars.Copy('Task','T2') do
	begin
		Height := 24;
		EndShape := EXGANTTLib.ShapeCornerEnum.exShapeIconDown1;
		EndColor := $ff;
	end;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Item 1');
		ItemHeight[h] := 28;
		AddBar(h,'T2','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
558
How can I change the ending shape for all task bars

with AxGantt1 do
begin
	with Chart.Bars.Item['Task'] do
	begin
		EndShape := EXGANTTLib.ShapeCornerEnum.exShapeIconUp1;
		EndColor := $ff;
	end;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
557
How can I change the height of the task bar

with AxGantt1 do
begin
	DefaultItemHeight := 28;
	Chart.Bars.Item['Task'].Height := 24;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
556
How can I change the starting shape for all task bars

with AxGantt1 do
begin
	with Chart.Bars.Item['Task'] do
	begin
		StartShape := EXGANTTLib.ShapeCornerEnum.exShapeIconUp1;
		StartColor := $ff;
	end;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
555
How can I change the height of the task bar

with AxGantt1 do
begin
	Chart.Bars.Copy('Task','T2').Height := 17;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
554
How can I change the height for all task bars

with AxGantt1 do
begin
	Chart.Bars.Item['Task'].Height := 17;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
553
How can I change the color of the task bar

with AxGantt1 do
begin
	Chart.Bars.Copy('Task','T2').Color := $ff;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
552
How can I change the color for all task bars

with AxGantt1 do
begin
	Chart.Bars.Item['Task'].Color := $ff;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
551
How can I change the shape for all task bars

with AxGantt1 do
begin
	Chart.Bars.Item['Task'].Shape := EXGANTTLib.ShapeBarEnum.exShapeSolidDown;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
550
How can I change the shape of the task bar

with AxGantt1 do
begin
	Chart.Bars.Copy('Task','T2').Shape := EXGANTTLib.ShapeBarEnum.exShapeThinCenter;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
549
How can I change the pattern or style for all task bars

with AxGantt1 do
begin
	Chart.Bars.Item['Task'].Pattern := EXGANTTLib.PatternEnum.exPatternFDiagonal;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
548
How can I change the pattern of the task bar

with AxGantt1 do
begin
	Chart.Bars.Copy('Task','T2').Pattern := EXGANTTLib.PatternEnum.exPatternFDiagonal;
	Chart.FirstVisibleDate := '1/1/2001';
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Nil,Nil);
		AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
547
How can I add a percent bar in the chart area, so the task bar is splited for non working days or hours

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.Bars.Add('Task%Progress:Split').Shortcut := 'TS';
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'TS','1/2/2001','1/16/2001','P1',Nil);
		ItemBar[h,'P1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.14);
		ItemBar[h,'P1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
	end;
end
546
How can I add a bar in the chart area, so the task bar is splited for non working days or hours

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.Bars.Add('Task:Split').Shortcut := 'TS';
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'TS','1/2/2001','1/16/2001',Nil,Nil);
	end;
end
545
How can I add a split bar in the chart area

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Split','1/2/2001','1/6/2001',Nil,Nil);
	end;
end
544
How can I add a progress bar in the chart area

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Progress','1/2/2001','1/6/2001',Nil,Nil);
	end;
end
543
How can I add a milestone bar in the chart area

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Milestone','1/2/2001','1/2/2001',Nil,Nil);
	end;
end
542
How can I add a summary bar in the chart area

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Summary','1/2/2001','1/6/2001',Nil,Nil);
	end;
end
541
How can I add a project summary bar in the chart area

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Project Summary','1/2/2001','1/6/2001',Nil,Nil);
	end;
end
540
How can I add a deadline bar in the chart area

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Deadline','1/2/2001','1/2/2001',Nil,Nil);
	end;
end
539
How can I add a task bar in the chart area

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001',Nil,Nil);
	end;
end
538
How can I assign a picture or an icon to a bar in the chart

with AxGantt1 do
begin
	set_HTMLPicture('p1','c:\exontrol\images\zipdisk.gif');
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		ItemHeight[h] := 48;
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarCaption] := '<img>p1</img>';
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarHAlignCaption] := TObject(2);
	end;
end
537
How can I assign a picture or an icon to a bar in the chart

with AxGantt1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarCaption] := '<img>1</img>';
	end;
end
536
How can I display or add an anchor or a hyperlink in the link

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Nil);
		AddItem('');
		AddItem('');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'just <a1>link</a>';
	end;
end
535
How can I display a picture or an icon on the link

with AxGantt1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Nil);
		AddItem('');
		AddItem('');
		AddItem('');
		AddItem('');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'just <img>1</img> link';
	end;
end
534
How can I display a picture or an icon on the link

with AxGantt1 do
begin
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Nil);
		AddItem('');
		AddItem('');
		AddItem('');
		AddItem('');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := '<img>pic1</img><br><br>just a link';
	end;
end
533
How can I display some HTML text or caption on link

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L<b>1</b>';
	end;
end
532
How can I assign a tooltip to a link

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L<b>1</b>';
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkToolTip] := 'This is a bit of text that''s shown when the cursor hovers the link';
	end;
end
531
Can I change the width or the size of the link

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkStyle] := TObject(0);
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkWidth] := TObject(2);
	end;
end
530
Can I change the style of the link

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkStyle] := TObject(4);
	end;
end
529
Can I change the color of the link

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkColor] := TObject(255);
	end;
end
528
Can I change the part of the bar where the link ends

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkStartPos] := TObject(1);
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkEndPos] := TObject(1);
	end;
end
527
Can I change the part of the bar where the link starts

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkStartPos] := TObject(0);
	end;
end
526
How can I associate an extra data to a link

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkUserData] := 'your data';
	end;
end
525
How can I show or hide a specified link
with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkEndBar] := TObject(False);
	end;
end
524
How can I get the key of the bar where the link end

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		AddItem(Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkEndBar]);
	end;
end
523
How can I get the key of the bar where the link starts

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		AddItem(Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkStartBar]);
	end;
end
522
How can I get the handle of the item where the link ends

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		AddItem(Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkEndItem]);
	end;
end
521
How can I get the handle of the item where the link starts

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		AddItem(Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkStartItem]);
	end;
end
520
How can I enumerate the links in the chart

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		AddLink('L2',h2,'K2',h1,'K1');
		AddItem(FirstLink);
		AddItem(NextLink[FirstLink]);
	end;
end
519
How can I access the properties and method of the link between two bars

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib.LinkPropertyEnum.exLinkText] := 'L<b>1</b>';
	end;
end
518
How can I remove a link between two bars
with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		ClearLinks();
	end;
end
517
How can I remove a link between two bars
with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
		RemoveLink('L1');
	end;
end
516
How do I add a link between two bars

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
		AddLink('L1',h1,'K1',h2,'K2');
	end;
end
515
How do I find the number or count of bars in the item
with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/1/2001','1/2/2001','K1',Nil);
		AddBar(h,'Task','1/4/2001','1/6/2001','K2',Nil);
		ItemBar[h,'K2',EXGANTTLib.ItemBarPropertyEnum.exBarCaption] := ItemBar[h,Nil,EXGANTTLib.ItemBarPropertyEnum.exBarsCount];
	end;
end
514
How can I assign any extra data to a bar in the chart
with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPattern] := 'your data';
	end;
end
513
Is there any way to change the background color for percent value being displayed on the progress bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.35);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat] := '<bgcolor=FF0000> %p%</bgcolor>';
	end;
end
512
Is there any way to change the color for percent value being displayed on the progress bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.35);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat] := '<fgcolor=FF0000>%p%</fgcolor>';
	end;
end
511
Is there any way to change the font for percent value being displayed on the progress bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.35);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat] := '<b><font Tahoma;12>%%p</font></b>';
	end;
end
510
Is there any way to align the percent value being displayed on the progress bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.75);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat] := '%p/100';
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarOffset] := TObject(0);
	end;
end
509
Is there any way to change the format of the percent being displayed on the progress bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.4);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat] := '<b>%p/100</b>';
	end;
end
508
How can I show or hide the percent value in the progress bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.4);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption] := TObject(True);
	end;
end
507
How can I change the percent value in a progress bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.4);
	end;
end
506
How can I add a percent bar

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Add('Task%Progress');
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task%Progress','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarPercent] := TObject(0.4);
	end;
end
505
Can I add a bar in the chart, using your EBN files

with AxGantt1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'','1/2/2001','1/5/2001','K1',' EBN ');
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarBackColor] := TObject(16777216);
		AddBar(h,'Task','1/6/2001','1/8/2001','K2',Nil);
	end;
end
504
How can I change the background color of the bar in the chart

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.Bars.Copy('Task','TaskR').Color := $ff;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'TaskR','1/2/2001','1/6/2001','K1',Nil);
	end;
end
503
How can I change the background color of the bar in the chart

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarBackColor] := TObject(8421504);
	end;
end
502
How can I change the background color of the HTML text or caption of the bar in the chart

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1',Nil);
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarCaption] := '<bgcolor=FF0000> to do </bgcolor>';
	end;
end
501
How can I change the foreground color of the HTML text or caption of the bar in the chart

with AxGantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2001','1/6/2001','K1','t<fgcolor=0000FF>o</fgcolor> do');
		ItemBar[h,'K1',EXGANTTLib.ItemBarPropertyEnum.exBarForeColor] := TObject(16777215);
	end;
end